#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

proc push_button {} {
	.ent insert 0 "Hello "
}

package require Tk

frame .frm -relief groove -background red
label .lab -text "Enter name:"
entry .ent
button .but -text "Push Me" -command "push_button"
pack .lab -in .frm
pack .ent -in .frm
pack .frm
pack .but
